home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 April
/
1994-04b.d64
/
random encoder
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
357b
|
15 lines
10 rem coding using a randomizing key
20 input"code message ";x$:gosub 100
30 poke216,99:print"encoded text: "z$
40 input"press return to recode";x$
50 x$=z$:gosub 100
60 poke216,99:print"reversed text: "z$
70 end
100 rem encoding routine
110 input"key number";k:x=rnd(-abs(k)/17)
120 z$="":for i=1 to len(x$)
130 x=asc(mid$(x$,i,1))
140 y=int(rnd(1)*255)
150 x=not(x and y)and(x or y):rem xor
160 z$=z$+chr$(x):next:return